Two-layer NN visualization 21

w11 = 2.1 (slider from -5 to 5)
w12 = 1.5 (slider from -5 to 5)
b1 = -0.1 (slider from -5 to 5)
net1(x, y) = (w11 * x) + (w12 * y) + b1
a1(x, y) = 1 / (1 + exp((-net1(x, y))))
w21 = -0.7 (slider from -5 to 5)
w22 = 1.6 (slider from -5 to 5)
b2 = 0.7 (slider from -5 to 5)
net2(x, y) = (w21 * x) + (w22 * y) + b2
a2(x, y) = 1 / (1 + exp((-net2(x, y))))
w31 = 2.2 (slider from -5 to 5)
w32 = 2.2 (slider from -5 to 5)
b3 = -2.7 (slider from -5 to 5)
net3(x, y) = (w31 * a1(x, y)) + (w32 * a2(x, y)) + b3
a3(x, y) = 1 / (1 + exp((-net3(x, y))))
a4(x, y) = If[a3(x, y) ≥ 0, 1, 0]
a1h(x, y) = If[net1(x, y) ≥ 0, 1, 0]
a2h(x, y) = If[net2(x, y) ≥ 0, 1, 0]
net3h(x, y) = (a1h(x, y) * w31) + (a2h(x, y) * w32) + b3
a3h(x, y) = If[net3h(x, y) ≥ 0, 1, 0]